home *** CD-ROM | disk | FTP | other *** search
/ Macwelt 1 / Macwelt DVD 1.toast / Web-Publishing / HTML-Editoren / Alpha ƒ / Mode Examples / Shell-Example.tcl < prev    next >
Encoding:
Text File  |  2000-10-30  |  1.1 KB  |  40 lines
  1. ## -*-Tcl-*-
  2.  # ==========================================================================
  3.  #  Mode Examples - a Help package for Alpha
  4.  # 
  5.  #  FILE: "Shell-Example.tcl"
  6.  #                                    created: 10/17/00 {02:18:43 pm} 
  7.  #                                last update: 10/19/00 {04:20:08 pm} 
  8.  #  Description: 
  9.  #  
  10.  #  Script for the "Shell Example" in the Mode Examples package.
  11.  # 
  12.  #  Author: Craig Barton Upright
  13.  #  E-mail: <cupright@princeton.edu>
  14.  #    mail: Princeton University, Department of Sociology
  15.  #          Princeton, New Jersey 08544
  16.  #     www: <http://www.princeton.edu/~cupright>
  17.  #  
  18.  # ==========================================================================
  19.  ##
  20.  
  21. # The "catch" is necessary due to some changes in "Shel::carriageReturn"
  22.  
  23. shell 
  24.  
  25. insertText "cd \[file join \$HOME\]"
  26. catch {Shel::carriageReturn}
  27.  
  28. insertText "cd \[file join \$HOME \"Mode Examples\"\]"
  29. catch {Shel::carriageReturn}
  30.  
  31. insertText "glob -dir \[file join \$HOME \"Mode Examples\"\] \*"
  32. catch {Shel::carriageReturn}
  33.  
  34. insertText "version" 
  35. catch {Shel::carriageReturn}
  36.  
  37. insertText "alertnote \"Hello World.\""
  38. catch {Shel::carriageReturn}
  39.  
  40.